home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / DUCT.LSP < prev    next >
Text File  |  1992-03-14  |  1KB  |  28 lines
  1. ;Duct Program (stupid)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun dtr (angg)
  7. (* pi (/ angg 180.0)))
  8. (defun WLINE ()
  9. (setq pt2 (getpoint pt1 "\nNext point  "))
  10. (if (= pt2 nil)(err))(command "line" pt1 pt2 "")
  11. (setq ang (angle pt1 pt2))
  12. (setq pt3 (polar pt1 (- ang (dtr 90)) do1))
  13. (setq pt4 (polar pt2 (- ang (dtr 90)) do1))
  14. (command "line" pt3 pt4 "")
  15. (setq lp1 lp2)(setq lp2 (entlast))(setq pt1 pt2))
  16. (defun wrf ()
  17. (setvar "LASTPOINT" (getpoint "Reference point: "))
  18. (SETQ PT1(getpoint "\nEnter relative/polar coordinates (with @): ")))
  19. (if (= do1 nil)(setq *do1 4.5))
  20. (setq oer   *error*  *error*  err)
  21. (pre)
  22. (initget (+ 2 4))
  23. (setq do1(getdist(strcat "Enter duct width  <" (rtos *do1) ">: ")))
  24. (if (= do1 nil)(setq do1 *do1)(setq *do1 do1))
  25. (setq pt1 (getpoint "\nPick starting point :  "))
  26. (if (= pt1 nil)(WRF))
  27. (setq pt0 pt1)(WLINE)(setq e 1)(while e (WLINE)(command "fillet" lp1 lp2)))
  28. (princ)